home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / Process.p < prev    next >
Text File  |  2004-01-31  |  2KB  |  53 lines
  1. pTempVar <- <primitive 110 8 >
  2. <primitive 112 pTempVar 1  " yield " \
  3.   #( #[ 16r5D 16rF3 16rF5] \
  4.     #(  )) >
  5.  
  6. <primitive 112 pTempVar 2  " unblock " \
  7.   #( #[ 16r20 16r0A 16r2D 16r30 16rB6 16rF7 16r07 16r20 16r31 16r0B 16r30 \
  8.         16rF2 16r5D 16rF3 16rF2 16r20 16r53 16rFA 16r02 16r91 16rF2 \
  9.         16r20 16r0A 16r2D 16rF3 16rF5] \
  10.     #( #TERMINATED 'unblock'  )) >
  11.  
  12. <primitive 112 pTempVar 3  " termErr: " \
  13.   #( #[ 16r30 16r21 16r0B 16r12 16r31 16r0B 16r12 16rA8 16rF2 16rF5] \
  14.     #( 'Cannot ' ' a terminated process.'  )) >
  15.  
  16. <primitive 112 pTempVar 4  " terminate " \
  17.   #( #[ 16r20 16rFA 16r01 16r8E 16rF2 16r20 16r0A 16r2D 16rF3 16rF5] \
  18.     #(  )) >
  19.  
  20. <primitive 112 pTempVar 5  " state " \
  21.   #( #[ 16r20 16rFA 16r01 16r92 16r71 16r21 16r50 16rC9 16rF7 16r04 16r30 \
  22.         16r71 16r21 16rF3 16rF2 16r21 16r51 16rC9 16rF7 16r04 16r31 \
  23.         16r71 16r21 16rF3 16rF2 16r21 16r52 16rC9 16rF7 16r04 16r32 \
  24.         16r71 16r21 16rF3 16rF2 16r21 16r53 16rC9 16rF7 16r04 16r32 \
  25.         16r71 16r21 16rF3 16rF2 16r21 16r54 16rCB 16rF7 16r04 16r33 \
  26.         16r71 16r21 16rF3 16rF2 16rF5] \
  27.     #( #READY #SUSPENDED #BLOCKED #TERMINATED  )) >
  28.  
  29. <primitive 112 pTempVar 6  " suspend " \
  30.   #( #[ 16r20 16r0A 16r2D 16r30 16rB6 16rF7 16r07 16r20 16r31 16r0B 16r30 \
  31.         16rF2 16r5D 16rF3 16rF2 16r20 16r51 16rFA 16r02 16r91 16rF2 \
  32.         16r20 16r0A 16r2D 16rF3 16rF5] \
  33.     #( #TERMINATED 'suspend'  )) >
  34.  
  35. <primitive 112 pTempVar 7  " resume " \
  36.   #( #[ 16r20 16r0A 16r2D 16r30 16rB6 16rF7 16r07 16r20 16r31 16r0B 16r30 \
  37.         16rF2 16r5D 16rF3 16rF2 16r20 16r50 16rFA 16r02 16r91 16rF2 \
  38.         16r20 16r0A 16r2D 16rF3 16rF5] \
  39.     #( #TERMINATED 'resume'  )) >
  40.  
  41. <primitive 112 pTempVar 8  " block " \
  42.   #( #[ 16r20 16r0A 16r2D 16r30 16rB6 16rF7 16r07 16r20 16r31 16r0B 16r30 \
  43.         16rF2 16r5D 16rF3 16rF2 16r20 16r52 16rFA 16r02 16r91 16rF2 \
  44.         16r20 16r0A 16r2D 16rF3 16rF5] \
  45.     #( #TERMINATED 'block'  )) >
  46.  
  47. <primitive 98 #Process \
  48.   <primitive 97 #Process #Object #AmigaTalk:General/Process.st \
  49.    #(  ) \
  50.    #( #yield #unblock #termErr: #terminate #state #suspend #resume #block  ) \
  51.   pTempVar 2 4 > #ordinary >
  52.  
  53.